home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / hide.v2 < prev    next >
Text File  |  1995-03-23  |  4KB  |  167 lines
  1. Article 1580 of comp.sys.handhelds:
  2. Path: en.ecn.purdue.edu!noose.ecn.purdue.edu!samsung!dali.cs.montana.edu!masscomp!rpi!uupsi!sunic!hagbard!luth!d89-mlt
  3. From: d89-mlt@sm.luth.se (Morgan Lindqvist)
  4. Newsgroups: comp.sys.handhelds
  5. Subject: Program HIDE ver. 2.0 for HP48sx
  6. Message-ID: <1151@tau.sm.luth.se>
  7. Date: 30 Sep 90 17:09:26 GMT
  8. Distribution: comp
  9. Organization: University of Lulea, Sweden
  10. Lines: 153
  11.  
  12.  
  13. Here comes a hide program ver 2.0 for subdirectories and other object
  14. names, from M&M
  15.  
  16.  
  17.            ---------------------------------------------
  18.            |  This version is much faster than ver 1.0 |
  19.            ---------------------------------------------
  20.  
  21. Mattias Dahl                 &            Morgan Lindvqist
  22. d89-mdl@sm.luht.se                        d89-mlt@sm.luth.se
  23.  
  24.                  University of Lulea, SWEDEN
  25.  
  26. -------------------------------------------------------------------------
  27.         _           _           _ _                   _           _
  28.        /   \       /   \      /     \              /   \       /   \ 
  29.       |     |     |     |    |       |             |     |     |     |
  30.       |      \ _ /      |    |       |             |      \ _ /      |
  31.       |       |_|       |     \     /              |       |_|       |
  32.       |                 |       \ /                |                 |
  33.       |                 |       / \                |                 |
  34.       |                 |     /     \              |                 |
  35.       |                 |    |        \   /        |                 |
  36.  /    |                 |    |          X     /    |                 |
  37.  \ _ /                   \_   \ _ _ _ /   \   \ _ /                   \ _
  38.               
  39.  
  40. -------------------------------------------------------------------------
  41.  
  42. Excuse for any grammar mistakes.
  43.  
  44.  
  45. First we would like to thank Rick Grevelle for the SYSEVAL's
  46.  
  47.  
  48. ----------------------------------------------------------------
  49.  
  50. You can hide all objectnames and use the "programs, directories,
  51. variables, ..." as usual.
  52.  
  53. NOTE! These programs will not work on HOME directory.
  54.  
  55.  
  56. To hide a name(s) in a directory you must evaluate these programs
  57. like this. ex. { HOME APPL HIDE } RCL EVAL 
  58. There "HOME APPL" is the path to the "HIDE"-programs directory.   
  59.  
  60. --------------------------------------------------------------
  61. EXAMPLE.
  62.  
  63. 4:
  64. 3:
  65. 2:
  66. 1:_          _ 
  67.   MAT  EXCO  U137  X 
  68.                                _
  69. To hide EXCO and the directory MAT.
  70.  
  71. 4:
  72. 3:   
  73. 2:                         { EXCO MAT }
  74. 1:_\<< { HOME_APPL HIDE } RCL EVAL \>>    
  75.   MAT  EXCO  U137   X
  76.  
  77. Then press EVAL.
  78.  
  79. 4:
  80. 3:
  81. 2:
  82. 1:_                            
  83.   U137  X
  84.                           _ 
  85. You can still use EXCO or MAT by typeing in EXCO or MAT .
  86.  
  87. ---------------------------------------------------------
  88. To unhide EXCO.
  89.  
  90. 4:
  91. 3:
  92. 2:                                    EXCO 
  93. 1:_  \<< { HOME APPL UNHIDE } RCL EVAL \>>    
  94.   U137  X
  95.  
  96. Then press EVAL
  97.  
  98. 4:
  99. 3:
  100. 2:
  101. 1:_
  102.   U137  X  EXCO
  103.  
  104. ---------------------------------------
  105. To wake up all hided names.
  106.  
  107. 4:
  108. 3:
  109. 2:
  110. 1:_  \<< { HOME APPL WAKEUP } RCL EVAL \>>    
  111.   U137  X  EXCO 
  112.  
  113. Then press EVAL
  114.  
  115. 4:
  116. 3:
  117. 2:
  118. 1:_             _
  119.   U137  X  EXCO MAT
  120.  
  121.  
  122. ---------------------------------------------------
  123. USAGE:
  124.  
  125. HIDE              1:  { 'names' }  ->  none 
  126.             OR    1:    'name'     ->  none
  127.  
  128.  
  129. UNHIDE            1:  { 'names' }  ->  none 
  130.             OR    1:    'name'     ->  none
  131.  
  132.  
  133. WAKEUP            1:     none      ->  none
  134.  
  135.  
  136. --------------------------------------------------------------------
  137. DIR
  138.   HIDE
  139.   \<< VARS "" # 05B15h SYSEVAL PURGE VARS \-> hideobj dirobj allobj 
  140.       \<< hideobj allobj dirobj SIZE 1 + allobj SIZE SUB + 'hideobj' STO
  141.           \<< \>> "" # 05B15h SYSEVAL STO dirobj SIZE 
  142.           IF DUP THEN 
  143.             1 
  144.             FOR x
  145.               'dirobj' x GET DUP hideobj SWAP POS 
  146.               IF NOT THEN 
  147.                 {} + ORDER
  148.               ELSE 
  149.                 DROP 
  150.               END      
  151.               -1
  152.             STEP
  153.           ELSE 
  154.             DROP
  155.           END
  156.       \>>
  157.   \>>
  158.  
  159.   UNHIDE
  160.   \<< VARS SWAP + ORDER \>>
  161.  
  162.   WAKEUP
  163.   \<< "" # 05B15h SYSEVAL PURGE \>>
  164. END
  165.  
  166.  
  167.